home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Programmierung
/
Power-Programmierung (Tewi)(1994).iso
/
magazine
/
spoc88
/
loops
/
numbers.bas
< prev
next >
Wrap
BASIC Source File
|
1988-06-10
|
469b
|
14 lines
'Toy Program by Tom Wrona
CLS
PRINT "Let's play with numbers!"
PRINT "You give me a number and I'll tell you facts about the number."
INPUT "What's your number";number
PRINT "The square root of your number is " SQR(number)"."
INPUT "Want to know something else (Y/N)" answer$
IF UCASE$(answer$) = "N" GOTO DONE
PRINT "A circle with a diameter of"number"would have
PRINT "a circumference of" 3.14 * number"."
DONE:
PRINT "That's all! Thanks for playing!"